music p layer *2 7/I/67 

org =2 0000 /origin of music on drum 

nbuf=34. /number of drum buffers 

lbuf=120. /size of each 

size=lbufxnbuf /space taken on each field (4o80. ) 

mar=l6. /margin after each buffer 

lea=iot 4677 

lei=iot 4577 

la2=iot 5077 

/common section 

3/ jmp brk 

4, jmp go 

beg, lio (i /initial entry 

dia 

claVcli 
dec 
xx 

tun, lio (500 /load tuning word 

dia 

lio (i pr2-500 
law 500 
dec 
xx 
jmp tnl 

dun, Ism 

cliVclaVhltVlaiVclf 7 

pla, lio (100 /play 

dia 

lio (i pr2-l00 
law 100 
dec 

XX 

jmp pll 

go, Ism 

szs 50 i 
jmp .+4 
lat 

dac twd 
jmp tun 
szs 60 
jmp pla 

com, lio (pr2 /load tape and compile 

dia 

lio (i pr3-prl 
law prl 
dec 
xx 
jmp cml 

constants 



twd, 


333300 


voll, 





vol2, 





tempo, 





op, 





dp, 





mss , 


skp 


prl, 





/last volume word read 
/last volume word on drum 

/compiler buffer pointer 

/drum pointer 

/skip if any music is on drum 



/player 






dimension 


buf (lbuf+mar) 


500/ 






brk, 


cks 






ril 


5s 




spi 


i 




jmp 


dsb 




lio 


mpa 




dia 






lio 


mpf 




law 


buf 




dec 






hit 






law 


i lbuf 




adm 


ptr 




law 


14. 




adm 


ttt 




lac 


i pll 




ral 


4s 




adm 


til 




lac 


i p22 




ral 


4s 




adm 


t22 




lac 


i P33 




ral 


4s 




adm 


t33 




lac 


2 




ral 


4s 




adm 


t44 


dsb, 


lac 







lio 


2 




jmp 


i 1 


tnl, 


law 


100 




dap 


to 


tn2, 


law 


Pt 




dap 


ti 




cla 






lio 


twd 




rcl 3 s 




dio 


twd 




sub 


(3 




dac 


mpa 


ti, 


lac 


• 




mul 


mpa 




scl 


9s 




add 


i ti 


to, 


dac 


• 




idx 


to 




sad 


(dac 500 




jmp 


tn3 




idx 


ti 




sad 


(lac pt+100 




jmp 


tn2 




jmp 


ti 


tn3, 


lio 


(i 100 



/temporary tuning word loader 



dia , 

llo (400 

law 100 

dec 

xx 

jmp dun 

pll, xct mss /play 

jmp dun /nothing to play 

cllVcmi' 

la2 

dzm til 

dzm t22 

dzm t33 

dzm t44 

law 252 

lea 

elf 4 

law buf 

dap ptr 

llo j(prg lbuf+mar 

dlo mpf 

dzm mpa 

ell 

dia 

lio (org lbuf+mar 

law buf 

dec /read first buffer 

xx 

cbs 

esm 
ptr, lio . 

idx ptr 

lac i ptr 

sad (-0 

jmp vol /change volume 

sza i 

jmp fin /end of music 

law 1 

rcl 6s 

dap pll 

law 2 

rcl 6s 

dap p22 

law 3 

rcl 6s 

dap p33 

lio i ptr 

law 4 

rcl 6s 

dap p44 

rir 2s 

cmi __ 

dio ttt 

szf 4 

jmp .+20. 

repeat 21., nop 

elf 4 
p44, lio . 

lac i pll 



ral 2s 

adm til 

lot 14 

lac i p22 

ral 2s 

adm t22 

lot 114 

lac 1 p33 

ral 2s 

adm t33 

lot 214 

lai 

ral 2s 

adm t44 

lot 314 
pll, lac ^ 

adm til 

lot 14 
p22, lac ^ 

adm t22 

lot 114 
p33, lac . 

adm tS3 

lot 214 

lai 

adm t44 

lot 314 

isp ttt 

jmp pll 

nxm, idx ptr 

sas (lio buf+lbuf 

jmp ptr 

law lbuf 

adm mpa 

sas (size 

jmp nx2 

dzm mpa 

lac (i 

adm mpf 

jmp nx3 
nx2, repeat 6, nop 

nx3, law i 15. 

add mpa 

lia 

dba 

stf 4 

jmp ptr 

fin, szs 60 

jmp pll 
jmp dun 

vol, lei 

stf 4 

jmp nxm 

pt, /prototype pitch table 

/twelfth root of 2 = 1,059463094359295264581 

decimal 
1458 1545 1637 



1 7l k 

2185 


1837 
2314 


2752 


2916 


3468 


3674 


4369 


4629 


5505 


5832 


6935 


7348 


8738 


9258 


II009 


11664 


13871 


14696 


17476 


18515 


22019 


23328 


27742 


29391 


34953 


37031 


44037 


46656 




octal 


consta 




pr2, 




variab 





1946 

2452 

3089 

3892 

4904 

6179 

7785 

9808 

12358 

15570 

I96I6 

24715 

31139 

39233 

49430 



2062 
2598 
3273 
4124 
5196 
6546 
8248 

10391 
13092 
16495 
20873 
26185 
32991 
41566 
52370 



/phase 2 compiler 



offset pr2-prl 
prl/ 
dimension bf2(lbuf ) 



n, 
t, 

a, 
cml, 



gnp. 



rel, 



re3, 



b+4/ 
n+4/ 

t+V 

P+V 
f+4/ 
a+4/ 



re7, 



eem 

dzm 

law 

dac 

rpb 

spi 

jmp 

cmi 

dio 

law 

sad 

jmp 

law 

add 

dap 

dzm 

lac 

dac 

lac 

dac 

lac 

dac 

lac 

dac 

law 

dac 

dzm 

lac 

dac 

rpb 

lai 

adm 

lai 

lio 

sni 

add 

sza 

jmp 

dac 
idx 
sad 
jmp 
sad 
lac 
dac 
isp 



not 
nl 



er 

ctl 
4 

U 
tm 

b 

fl 

S.1 

off 

fl 

Fls 

ctl 

c"ts 

nl 

nls 

i 104 

ct 

csm 

nl 

i bl 



csm 

fl 

i 

off 

re6 

i nl 

nl 

(100000 

sf 

(20000 

(70000 

nl 
ctl 



/compiler buffer 

/bar pointer 

/note pointer 

/time 

/pitch 

/articulation flag (- when part runs out) 

/articulation 



/read one part 
/end of all parts 

/too many parts 

/0 while reading notes 

/note offset 

/save in case of checksum 



/relocate 
/note/bar marker 

/storage full 



/ 



jmp re4 

rpb /done 

lai 

sas csm /last checksum 



jmp re5 
idx i j 
jmp gnp 
re4, isp ct 



jmp re3 

rpb /end of block 



lal 

sad csm 

jmp pel 

ve5, jsp txx 



text /cksm 



c lcVc HVcmiVh It 
lac cts 
dac ctl 
lac fls 
dac f 1 
lac nls 
dac nl 
jmp rel 
er, lac ij 

dac np 
sza 

jmp re8 
jsp txx 
text /No parts 

jmp dun 
re6, idx fl 

jmp re7 
sf , jsp txx 



/ 

jmp dun 
tm, jsp txx 



jsp txx 

text /Storage full. Subdivide all parts. 



jsp txx 

text /No jump block after 4 parts. 



/ 

jmp er 
ts, jsp txx 

text /too slow 

jmp tf 1 
tf, jsp txx 

text /too fast 

tf 1 , c lcVc liVcmiVh It 

re8, lat __ 

dac tm2 
and (777 
sas tm2 
jmp tf 
law i 40 
add tm2 
spa 
jmp ts 



szs 20 

xct mss 

jmp rlO /reset drum pointers 

law i 2 
adm op 
law 7777 
and dp 
lia 
dla 

xor dp 
ior (ibuf 
lia 

law bf 2 
dec 
hit 
jmp qO 
rlO, law 170. /erase previous music 

dac tempo 
law 252 
dac voll 
dac vol2 
lac (org 
dac dp 
law bf2 
dac op 



qO, dzrn be /bar count 

dzm mes /last bar in error 

law (600000 

dac n 

dac n+1 

dac n+2 

dac n+3 

law t /clear out unused parts 

dap .+1 

dzm . 

idx . -1 

sas .+2 

jmp .-3 

dzm p+3 
q8, Idx be /initialize measure 

elf 2 

dzm ij 

clc _ 

dac pro 
lu2, law b 

add i j 

dap bl 

add (n-b 

dap nl 

add (t-n 

dap tl 

add (p-t 

dap pi 

add (f-p 

dap fl 

q89, lac i nl 

dac Too 

lac i f oo 

and ( law 

sas (jmp 

jmp . /? 

bl, lac ^ 

dac fbo 

lac i f oo 

sad (jmp 

jmp q88 /part has run out 

stf 2 /F2 means some part still has bars 

dac i nl 

law i 1 

adm i bl 
q86, dzm i fl 

dzm i tl 

idx ij 

sas np 

jmp lu2 

szf 2 i 

jmp end 

lac pro 

sma 

jmp q56 /some part has run out 



/get time for each part. If part is at end of. bar or end of music, 

/get zero 

Q9, dzm Tj 

law 2s 

dac s"f 1 /shift counter for volume 

clc 

dac ps 

elf 5 
qlO, law Id /check this part 

add ij 

dap bl /set pointers 

add (n-b 

dap nl 

add (t-n 

dap tl 

add (p-t 

dap pi 

add (f-p 

dap f 1 

add (a-f 

dap al 
ql5, law i 7 
tl, add . 

sma 

jmp ql3 /sufficient time exists 
fl, lac . /refill 

szm 

jmp ql4 /flag on, get articulation 

nl, lac •_ 

dac pol 

lac i pol 

ral 3s 

and (7 

add (qlx 

dap ql2 

law 777 

and 1 pol 

dac temp /duration 

ql2, xct . 

e, dac i al 

cma 

adm i tl 

idx i f 1 
1, lac i pol 

ral 9s 

and (77 /pitch 

dac i pi 

idx i nl 

lac temp 

ral 3s 

adm i tl 

jmp ql5 

qlx, jmp 1 /l 

jmp s /s 

nop /e 

ral Is A 

ral 2s /q 

jmp svl /set volume 



qlz, 



svl, 



svl, 
sv2, 



ql4, 
al. 



qi3, 



Jmp 


q!3 


Jmp 


qiy 


law 


7777 


and 


1 pol 


dac 


tempo 


idx 


i nl 


sad 


(and 
(law 


lac 


dac 


1 nl 


Jmp 


nl 


ral 


2s 


add 


temp 


Jmp 


e 


lac 


sfl 


lor 


(ral 


dac 


svl 


add 


(rar -ral 


dac 


sv2 


lac 


voll 


rar 


8s 


XX 




lio 


temp 


rcr 


2s 


XX 




rar 


8s 


dac 


voll 


Jmp qlz 


dzm 


1 pi 


lac 


• 


adm 


1 tl 


dzm 


I f 1 


Jmp ql5 


lac 


1 tl 


sza 


1 


Jmp 


.+3 


stf 


5 


Jmp 


q77+l 


lac 


I f 1 


spa 




Jmp q77 


lac 


iJ 


dac 


PS 


dzm 


i pi 


lac 


sfl 


ral 


2s 


add 


(2 s 


dac 


sfl 


Idx 


1J 


sas 


np 


Jmp 


qlO 



/end of bar, can* t get any time 
/set tempo 



/no time 

/F5 means some part has time 



/end of part already noted 



/some part is short 
q77> dzm i pi /if no time, make it a rest 



/sfl=2s,4s,6s,8s 
/check next part 



Q99, 



szf 5 i 

jmp q8 
lac ps 
sma 

jmp mis 
lac t 
sza 1 

law 7777 
llo t+1 
snl 

jmp .+5 
sub t+1 
sma 
cla 

add t+1 
llo t+2 
sni 

jmp .+5 
sub t+2 
sma 
cla 

add t+2 
llo t+3 
sni 

jmp .+5 
sub t+3 
sma 
cla 

add t+3 
dac temp 
cmaVlia 
add t 
sma 
dac t 
lai 

add t+1 
sma 

dac t+1 
lai 

add t+2 
sma 

dac t+2 
lai 

add t+3 
sma 

dac t+3 
lac temp 
mul tempo 
rcr Is 
div tm2 
hit 

dac temp 
lac voll 
sad vol2 
jmp d2 
dac vol2 
jda put 
clc 
jda put 



/no time in any part 



/some part is short 
/calculate least time 



6.2; 



end, 



en2, 



put, 



Pux 



lac 


P 


ral 


OS 


ior 


p+1 


ral 


6s 


ior 


p+2 


jda 


Put 


law 


7770 


sub 


temp 


sma 




cla 




add 


temp 


11a 




cma 




adm 


temp 


lai 




ral 


6s 


lor 


P+3 


rar 


6s 


jda 


put 


lac 


temp 


sza 




jmp 


d2 


jmp q9 


cla 




jda 


put 


Jsp 


put+1 


llo 


dp 


dia 




lio 


(lbuf 


law 


bf2 


dec 




hit 




law 


7777 


and 


dp 


sza 




jmp 


en2 


law 


i i-size 


add 


dp 


dia 




lio 


(i-size 


law 


bf2 


dec 




hit 




law 


600 


dap 


mss 


lem 




szs 


i 10 


jmp 


dun 


jmp 


pla 







dap 


pux 


law 


bf2+lbuf 


sad 


op 


jmp 


wrb 


lac 


put 


dac 


i op 


idx 


op 


jmp 


• 



/if too long, break it up 



/end of music 



/write out last buffer 



/write out patch at top of last field 



/music now exists 



wrb, 



wr2, 

pi, 
q88, 



q56, 



/ 



mis 



lio 
dia 
lio 
law 
dec 
hit 
law 
dac 
law 
adm 
and 
sad 
jmp 
sas 
jmp 
law 
add 
lia 
dia 
lio 
law 
dec 
hit 
jmp 
law 
adm 
jmp 

lac 



dp 

(lbuf 
bf2 



bf2 
op 
lbuf 
dp 

7777 

(lbufxnbuf 
wr2 
(lbuf 
put+5 

i lbuf+i-size 
dp 



(i-size 
bf2 



put +5 

i-size 
dp 

put+5 



i fl 



lac 

spa 

jmp q86+l 

lac 4J 

dac pro 

clc 

dip i fi 

jmp q86+l 



/part is out of music 
/already know about it 
/record that fact 



jsp txx 

text /Part / 

law 1 

add pro 

jdp dpt 

jsp txx 

text / is out of music at measure / 

lac be 

jdp dpt 

jsp txx 

text /. 



jmp q9 

lac be 

sad mes 

jmp q99 

jsp txx 

text /Measure / 

lac be 



/error already printed 





jdp dpt 




jsp 


txx - 




text / of part / 




law 


1 




add 


ps 




jdp dpt 




jsp 


txx 




" text / is too short 


/ 








lac 


be 




dac 


mes 




jmp q99 


dpt, 









dac 


cTpl 




dzm 


dp2 


dpp, 


dac 


dp3 




mul 


(1 




dlv 


.+1 




10. 






sas 


dp2 




jmp 


dpp 




sni 






lio 


(20 




tyo 






lac 


dp3 




dac 


dp2 




lac 


dpi 




sas 


dp2 . 




jmp dpp 




jmp 


1 dpt 


txx, 


dap 


txy 




lio 


1 txy 




idx 


txy 




lac 


(607600 




rcl 


6s 




sad 


(lal 


txy, 


jmp 


• 




sad 


.42 




jmp 


txx+1 




swp 






tyo 






11a 






jmp 


txy-3 


constants 






Pr3, 






variables 






not, 






start 5 







